Here's code that makes the slide

ggplot(mpg, aes(reorder(manufacturer, hwy), hwy)) +
  geom_boxplot(colour = "grey70") +
  geom_point(position = position_jitter(h = 0, w = 0.2), pch = 1) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(x = "Manufacturer", y = "Highway MPG")

Now another slide

And some more words

About nothing in particular

And some of the data that made it…

manufacturer model displ year cyl trans drv cty hwy fl class
nissan altima 2.5 2008 4 manual(m6) f 23 32 r midsize
volkswagen passat 1.8 1999 4 auto(l5) f 18 29 p midsize
hyundai sonata 3.3 2008 6 auto(l5) f 19 28 r midsize
audi a6 quattro 2.8 1999 6 auto(l5) 4 15 24 p midsize
mercury mountaineer 4wd 4.6 2008 8 auto(l6) 4 13 19 r suv
hyundai tiburon 2.0 2008 4 auto(l4) f 20 27 r subcompact
ford f150 pickup 4wd 5.4 2008 8 auto(l4) 4 13 17 r pickup
hyundai tiburon 2.0 1999 4 manual(m5) f 19 29 r subcompact
ford mustang 4.6 2008 8 manual(m5) r 15 23 r subcompact
dodge ram 1500 pickup 4wd 4.7 2008 8 auto(l5) 4 13 17 r pickup

And a slide of text

  • Some stuff
  • And some more
  • What else is there to say???